global keepers1991 ""


numlabel, add

drop if delurv~=14

genl yr=1991
global keepers1991 $keepers1991 yr

genl id=v1
global keepers1991 $keepers1991 id

/* XXX TH: Where does this file actually come from? */
*merge 1:1 v4 using "$pooldir/vu91ink_amended.dta" /* Note: duplicate observations deleted from the file first using */
/* duplicates drop */
*drop if _merge==2


genl income=r18
genl income3=income
centile income, c(33 66 100)
replace income3=0 if income<=r(c_1)
centile income, c(33 66 100)
replace income3=1 if income>r(c_1) & income<=r(c_2)
centile income, c(33 66 100)
replace income3=2 if income>r(c_2) & income<=r(c_3)
global keepers1991 $keepers1991 income3

genl pid_ce=(v204==22 & v205==1)
replace pid_ce=. if v203==.
global keepers1991 $keepers1991 pid_ce

gen pid_gov=pid_ce
global keepers1991 $keepers1991 pid_gov

genl vote_ce=v221
recode vote_ce 22=1 85 .=. else=0
global keepers1991 $keepers1991 vote_ce

genl vote_gov=vote_ce
global keepers1991 $keepers1991 vote_gov

genl turnout=v220
recode turnout 5 3 = 0 .=.
replace turnout=0 if v221==85
replace turnout=1 if turnout==. & vote_ce~=.
global keepers1991 $keepers1991 turnout



genl gpi=v15
replace gpi=abs(gpi-4)/3
global keepers1991 $keepers1991 gpi

genl socref=v177
recode socref 8=2.5
replace socref=abs(socref-4)/3
global keepers1991 $keepers1991 socref

genl degree=v359
recode degree 7=1 1/6=0
global keepers1991 $keepers1991 degree


// Class/occupation

gen class_reho_3cat_strata = eyrke
recode class_reho_3cat_strata 1=1 2=1 3=2 4=2 5=1 6=2 7=2 8=.
replace class_reho_3cat_strata = . if class_reho_3cat_strata > 40
label variable class_reho_3cat_strata "Social class (3 cats.): higher value is higher class"
*label define LblClassGrade 1 "A: (Higher man.; prof." 2 "B: Lower man.; admin." 3 "C1A: Skilled; supervis. non-manu." 4 "C1B: Lower non-manu." 5 "C2: Skilled manu." 6 "D: Unskilled manu."
*label values class_head_grade LblClassGrade
global keepers1991 $keepers1991 class_reho_3cat_strata

gen male = v6
recode male 1=1 2=0
global keepers1991 $keepers1991 male

gen married = v390
recode married 1=1 2/3=0
global keepers1991 $keepers1991 married

gen unionmem_resp = v384
recode unionmem_resp 1/777=1 995=0 888=.
global keepers1991 $keepers1991 unionmem_resp

*gen unionmem_spou = v259
*recode unionmem_spou 1/4=1 .=0
*global keepers1979 $keepers1979 unionmem_spou



// Pascal/SM moderators


gen unemployment_inflation=.
replace unemployment_inflation=1 if v147==1
replace unemployment_inflation=0.5 if v147==3 |v147==4 | v147==8
replace unemployment_inflation=0 if v147==02
tab unemployment_inflation v147, m
lab var  unemployment_inflation  "1=unemployment more important then inflation"


gen party_ID=. 
   replace party_ID=1 if v203==1 & v204==11
   replace party_ID=2 if v203==1 & v204==22
   replace party_ID=3 if v203==1 & v204==33
   replace party_ID=4 if v203==1 & v204==44
  
   replace party_ID=6 if v203==1 & v204==66
   replace party_ID=7 if v203==1 & v204==87

   replace party_ID=8 if v203==1 & v204==88
   
   replace party_ID=9 if v203==1 & v204==12
 
   replace party_ID=10 if v203==1 & v204==55
 
 replace party_ID=11 if v203==1 & v204==13
 replace party_ID=12 if v203==1 & v204==71
 replace party_ID=13 if v203==1 & v204==72
 replace party_ID=14 if v203==1 & v204==73
replace party_ID=15 if v203==1 & v204==82
replace party_ID=16 if v203==1 & v204==14
replace party_ID=17 if v203==1 & v204==15
replace party_ID=18 if v203==1 & v204==9

 lab def party_ID 1 "v�nsterpartiet kom " 2 "socialdemokraterna" 3"centerpartiet" 4"folkpartiet" 5"h�gerpartiet" 6"kristen demokratis" 7 "other" 8 "will not answer"9 " kommunistiska f�rbundet marxist-len" 10 " moderata samlingspartiet " 11 "sveriges kommunis" 12 "borgerligt "  13 "FC+C" 14 "lokal borgerlig" 15 "sk�nepartiet" 16 "kommunistiska arbetaref�rbundet" 17 "vpk, apk, kpmlr, skp, kaf" 18 "gr�nt parti" 19 "ny demokrati"
 lab val party_ID party_ID
  tab party_ID, m
 tab party_ID v204, m


 foreach var of varlist  v110 v111 v113 v114 v115 v117 v144{
        gen Z`var'=`var'
		replace Z`var'=5 if `var'==1
		replace Z`var'=4 if `var'==2
		replace Z`var'=3 if `var'==8 | `var'==3
		replace Z`var'=2 if `var'==4
		replace Z`var'=1 if `var'==5
		replace Z`var'=(Z`var'-1)/4
		tab Z`var' `var', m
  }


rename Zv110 cut_public
lab var cut_public "1=good idea to reduce size of public sector"

rename Zv111 abolish_transfer
lab var abolish_transfer"1=good idea abolish the wage earners' funds"

rename Zv113 cut_benefit
lab var cut_benefit "1=good idea to reduce social benefits"

rename Zv114 privatize 
lab var privatize "1=good idea to sell public companies" 


rename Zv115 reduce_inequalities
lab var reduce_inequalities "1=good idea to reduce income differences" 

rename Zv117 private_health
lab var private_health "1=good idea to increase private run health care"

rename  Zv144 tax_l_properties
lab var tax_l_properties "1=good idea to tax large properties"


 foreach var of varlist v176 v178{
        gen Z`var'=`var'
		replace Z`var'=1 if `var'==4
		replace Z`var'=2 if `var'==3
		replace Z`var'=2.5 if `var'==8
		replace Z`var'=3 if `var'==2
		replace Z`var'=4 if `var'==1
            replace Z`var'=. if `var'==6 | `var'==9 
		replace Z`var'=(Z`var'-1)/3
		tab Z`var' `var', m
  }



    rename Zv176 econ_control
  lab var  econ_control "1=agree state control limit bank and industry influence"

rename Zv178 tomuch_equality
  lab var tomuch_equality "1=equality has gone to far"



foreach var of varlist  v190 v192 v199 v191{
        gen Z`var'=`var'/10
		replace Z`var'=0.5 if Z`var'>1
		replace Z`var'=. if `var'==.
			tab Z`var' `var', m
  }

rename Zv190 m_market_oriented
lab var m_market_oriented "1=favor move toward more free-market"

rename Zv199 m_equality
lab var m_equality "1=favor move toward smaller diff income and working conditions"

rename Zv192 m_growth
lab var m_growth "1=favor move toward towards high rate growth and productivity" 

rename Zv191 m_socialism
lab var m_socialism "1=favor move toward socialism"



gen newspaper_politics=.
 replace newspaper_politics=0 if v7==1
 replace newspaper_politics=0.33 if v7==2
 replace newspaper_politics=0.66 if v7==3
 replace newspaper_politics=1 if v7==4
  replace newspaper_politics=0.5 if v7==5
tab newspaper_politics v7,m
 lab var newspaper_politics "1=read more politic articles"



     gen talk_politic=.
 replace talk_politic=1 if v16==1
 replace talk_politic=0.66 if v16==2
replace talk_politic=0.33 if v16==3
replace talk_politic=0 if v16==4
replace talk_politic=0.5 if v16==8
 replace talk_politic=. if v16==6 | v16==9
 
 tab v16 talk_politic, m
  lab var talk_politic "1=often talk politic outside and inside family" 



gen right=v217/10
replace right=0.50 if right>1 & right~=.
  tab right v217, m
  lab var right "1=far right"

  

gen anti_m_socialism=.
replace anti_m_socialism=0 if m_socialism==1
replace anti_m_socialism=0.1 if m_socialism>=0.88 & m_socialism<=0.91 
replace anti_m_socialism=0.2 if m_socialism>=0.78 & m_socialism<=0.81 
replace anti_m_socialism=0.3 if m_socialism>=0.68 & m_socialism<=0.71 
replace anti_m_socialism=0.4 if m_socialism>=0.58 & m_socialism<=0.61 
replace anti_m_socialism=0.5 if m_socialism>=0.48 & m_socialism<=0.51 
replace anti_m_socialism=0.6 if m_socialism>=0.38 & m_socialism<=0.41 
replace anti_m_socialism=0.7 if m_socialism>=0.28 & m_socialism<=0.31 
replace anti_m_socialism=0.8 if m_socialism>=0.18 & m_socialism<=0.21 
replace anti_m_socialism=0.9 if m_socialism>=0.08 & m_socialism<=0.11 
replace anti_m_socialism=1 if m_socialism==0
tab anti_m_socialism m_socialism, m

gen index_interest=(gpi+talk_politic)/2
global keepers1991 $keepers1991 index_interest

gen index_market_oriented=(  socref  +cut_public +abolish_transfer +cut_benefit+ privatize + private_health + m_market_oriented + anti_m_socialism +right  )/9
global keepers1991 $keepers1991 index_market_oriented
